20 POKE53281,14:POKE53280,14:POKE53272,21:PRINT"[149]"
30 PRINT"[147]PET-QUARZ-WELTZEIT":PRINT
40 PRINT"COPYRIGHTS BY":PRINT
50 PRINT"CHRISTIAN BOHN"
60 POKE198,0:WAIT198,1:POKE198,0
70 PRINT"[147]GEBEN SIE DIE GENAUE UHRZEIT AN!"
80 PRINT"HHMMSS[146]"
90 INPUT"[145]";TI$
100 GOSUB330:PRINT""
120 A=VAL(TI$)-90000
140 B=VAL(TI$)-60000
160 C=VAL(TI$)+20000
180 D=VAL(TI$)+40000
200 E=VAL(TI$)+90000
210 IFA<0THENA=A+240000
220 IFB<0THENB=B+240000
230 IFC>240000THENC=C-240000
240 IFD>240000THEND=D-240000
250 IFE>240000THENE=E-240000
260 A1$=STR$(A):A2$=STR$(B):A3$=STR$(C):A4$=STR$(D):A5$=STR$(E)
270 IFA=235959ORB=235959ORC=240000THEN100
280 IFD=240000ORE=240000THEN100
290 PRINT"";TI$
300 PRINT"";A1$;"";A3$;"";A5$;""
310 PRINT"";A2$;"";A4$;"[145][145][145][145][145][145]"
320 GOTO120
330 PRINT"[147][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
340 PRINT"[165]        [172]     [188][146]           [164][162]   [162] [164]   [167]"
350 PRINT"[162][162][162][162][162][162][169][163][163][163] [223]   [146][169]   [164][185][185] [164][164][162]           [146][162][167]"
360 PRINT"[223]     [146][169] [187][185] [169][146][169][162][146][184][162][146]  [172] [187] [190]            [172][146][184] [146][167]"
370 PRINT"[169]     [223][169]  [146]      [191][146] [162][146][185][190]  *            [146][188][191][146][167]"
380 PRINT"     *[162][146][190] [190]     [172][163]    [162][187][172][187]           [146][190][191][146][167]"
390 PRINT"*    :[169][146]         [162][146][190][162][188][188] [187]: [188]         [146][188][172][162][146][167]"
400 PRINT"[223] [146][169][163][163][165]         [169]     [163][205]: [162][185]        [146][161]  [167]"
410 PRINT": [188][163][146][188][190][209]                [205] [172][146][190][188][187]*[146][169][223]  [146][183] [187] [167]"
420 PRINT":  [188][163][184][163][146][162]      [170]        :[163][146][187]   [162][146][187] [161][187][146][190] [183][187][167]"
430 PRINT":   [172]:   [223][146]      [184][162][146][190][187]   :[146][169]    :  [172][191][172][163][146][172] [167]"
440 PRINT":   [223]:   [188][146][162]        [188]   [146][161]     :   [162][177][146][190][192][146][187][146][167]"
450 PRINT":    [223]    [146][169]            [146][161][172][165]   :      [172][162][167]"
460 PRINT":    :[223]  [146][169]            [146][169]:[162][146]    :   [172][163]    "
470 PRINT":    :  [172][146]           [172][146][190] :     :   [161]  *  "
480 PRINT":    :  [146][190]              :     :    [188][163]:[223] [146]"
490 PRINT":    : [223] [146]              :     :      :[188][167]"
500 PRINT":    :  [188][190]             :     :     CHB[167]"
510 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
520 PRINT":    :         MEZ     :     :      : "
530 PRINT"SAN FRANCISCO       MOSKAU   :MELBOURNE"
540 PRINTTAB(29)":"
550 PRINT"     :                       :  "
560 PRINT"   NEW YORK               BOMBAY "
570 RETURN